********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Menghitung_Luas_Persegi_Panjang;
(*---------------------------------*)
(*        Menghitung Luas          *)
(*        Persegi Panjang          *)
(*---------------------------------*)

Uses CRT;
Var
  Panjang : real;
  Lebar   : real;
  Luas    : real;
begin
clrscr ;
Writeln (' Menghitung Luas Persegi Panjang ');
Write (' Masukan Nilai Panjang:'); Readln (Panjang);
Write (' Masukan Nilai Lebar  :'); Readln (Lebar);
  Write;
  Luas    := (Panjang * Lebar);
  Writeln (' Luas:', luas:6:2);
readln;
end.